home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 November / macformat-030.iso / Floppy / Gossamer 2.0 / Sample Worlds / Tumbling Torus / Tumbling Torus Toy next >
Encoding:
Text File  |  1993-05-09  |  937 b   |  53 lines  |  [TEXT/mdos]
  1. #
  2. # TTOY.WLD
  3. #
  4. # A tumbling torus toy
  5. #
  6. # Created by Dave Stampe (dstampe@sunee.uwaterloo.ca)
  7. # for "Virtual World Creations", published by the Waite Group
  8. #
  9.  
  10. loadpath ttoy
  11. stepsize 3
  12.  
  13. start 0,0,-1200 0,1,0  # starting location, orientation and zoom
  14.  
  15. #skycolor 0xef
  16. #groundcolor 0xef
  17.  
  18. ambient 60
  19.  
  20. # Surface definitions:
  21.  
  22. surfacedef rd    0x11ff
  23. surfacedef blu   0x1bff
  24. surfacedef yel   0x16ff
  25. surfacedef grn   0x09ff
  26.  
  27. # Surface mappings:
  28.  
  29. surfacemap red
  30. surface 1 rd
  31.  
  32. surfacemap blue
  33. surface 1 blu
  34.  
  35. surfacemap yellow
  36. surface 1 yel
  37.  
  38. object c6=torus2     0.5,0.5,0.5  0,0,0   0,0,0   0 blue
  39. object c7=torus2     1,1,1        0,0,0   0,0,0   0 red
  40. object c8=torus2     2,2,2        0,0,0   0,0,0   0 yellow
  41.  
  42. animation 150
  43.  state a
  44.   do c6=step(x,x,x -129,79,-90)[]
  45.   do c7=step(x,x,x -88,40,-50)[]
  46.   do c8=step(x,x,x 0,-55,66)[]
  47.  
  48. title Torus Toy World
  49. title by Dave Stampe
  50. title memory
  51.  
  52.  
  53.